home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / f.calendar maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  622b  |  17 lines
  1. 1 print"[147][159]"
  2. 2 printtab(9)"[201]nsert [204][207][193][196][211][212][193][210] #50[159] [211]ide 3[159]"
  3. 3 printtab(14)"and press [210][197][212][213][210][206][146]"
  4. 4 geta$:ifa$<>chr$(13)then4
  5. 5 printtab(8)"[156][197] [216] [212][160][197][160][210][160][205][160][201][160][206][160][193][160][212][160][201][160][206][160][199]!!!"
  6. 10 q$=chr$(34):f$="calendar maker"
  7. 20 print"[158]load"q$f$q$",8"
  8. 30 print"2 poke55,0:poke56,140:clr:poke53272,56:poke56576,1:poke648,140"
  9. 40 print"15010 poke53272,21:poke56576,199:poke648,4:?"q$"[147]"q$
  10. 100 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  11. 110 print"o[208]15,8,15,"q$"i0"q$":o[208]2,8,2,"q$"#"q$":p[210]15,"q$"ua:2 0 25 16"q$;
  12. 115 print":print#15,"q$"b-p:2 3"q$
  13. 120 print"print#2,chr$(160);:print#15,"q$"ub:2 0 25 16"q$":close2:close15"
  14. 130 print"";
  15. 140 fori=631to640:pokei,13:next:poke198,10
  16. 150 new
  17.